<%Response.Expires=100%>
<!--#include file=tools.asp--><%
	id=Request.QueryString("id")
	set con=OpenBase(3)
	sq="SELECT mime,obrazek FROM linki WHERE id=" & id
	set rs=con.execute(sq)
	if not rs.eof Then
		Response.ContentType=rs("mime")
		tresc=rs("obrazek")
		n=len(tresc)
		i=0
		Dim C(2)
		b=""
		while i < n
			i=i+1
			C(1)=mid(tresc,i,1)
			i=i+1
			C(2)=mid(tresc,i,1)
			w=0
			for j=1 To 2
				if (C(j) >= "0") And (C(j) <= "9") Then p=Asc("0") Else p=Asc("A")-10 end if
				w=16*w+Asc(C(j))-p
			Next
			b=b & chrB(w)
		wend
		response.binarywrite(b)
	end if
	set rs=nothing
	closeBase(con)
%>